home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / WASTE 1.0a4 Distribution / WASTE Headers / Pascal Interfaces / LongCoords.p next >
Text File  |  1994-03-28  |  506b  |  35 lines
  1. unit LongCoords;
  2.  
  3. { Long Coordinates }
  4.  
  5. { Copyright © 1993-1994 Merzwaren }
  6. { All Rights Reserved }
  7.  
  8. interface
  9.  
  10.     type
  11.  
  12. { long coordinates types }
  13.  
  14.         LongPoint = record
  15.                 case Integer of
  16.                     0: (
  17.                             vh: array[VHSelect] of LongInt;
  18.                     );
  19.                     1: (
  20.                             v, h: LongInt;
  21.                     );
  22.             end;  { LongPoint }
  23.  
  24.         LongRect = record
  25.                 case Integer of
  26.                     0: (
  27.                             topLeft, botRight: LongPoint;
  28.                     );
  29.                     1: (
  30.                             top, left, bottom, right: LongInt;
  31.                     );
  32.             end;  { LongRect }
  33.  
  34. implementation
  35. end.